home *** CD-ROM | disk | FTP | other *** search
Text File | 1992-06-18 | 590 b | 30 lines | [TEXT/KAHL] |
- // Loader for shot pixel
-
- void
- main ( void )
- {
- long oldAddr ;
- Handle code ;
- unsigned short * ptr ;
- long keys [ 4 ] ;
-
- code = GetResource ( 'XXXX' , 128 ) ;
- GetKeys ( keys ) ;
- if ( code && ! ( keys [ 1 ] & 0x4 ) ) {
-
- DetachResource ( code ) ;
- HLock ( code ) ;
- oldAddr = NGetTrapAddress ( 0x53 , ToolTrap ) ;
- NSetTrapAddress ( ( long ) StripAddress ( * code ) , 0x53 , ToolTrap ) ;
- ptr = ( unsigned short * ) * code ;
- while ( * ptr != 0xeeee ) ptr ++ ;
- * ( long * ) ptr = oldAddr ;
- FlushDataCache ( ) ;
- FlushInstructionCache ( ) ;
-
- } else {
-
- SysBeep ( 20 ) ;
- }
- }
-